Main
Sub Main
	dim doc
	set doc = application.ActiveDocument
	Set selected = doc.GetObjects(ppcbObjectTypeDrawing,,True) 
	msgbox selected.count
	dim ischeck
	For Each drw In selected  
		For Each geom In drw.Geometry 
			msgbox geom.ObjectType'ppcbObjectTypePolyline
			
			ischeck =  geom.ObjectType
			if ischeck = 16 then
				'msgbox "true"
				p = geom.Points 
				n = UBound(p)
				'n = UBound(p, 1) 
				msgbox n
				For i = 1 To n - 1 
					If p(i, 3) = 0 Then 
					   m = "Segment " & i 
					   m = m & " From (" & p(i, 1) & ", " & p(i, 2) & ")"
					   m = m & " To (" & p(i + 1, 1) & ", " & p(i + 1, 2) & ")"
					Else 
					   m = "Arc " & i
					   m = m & " From (" & p(i, 1) & ", " & p(i, 2) & ")"
					   m = m & " To (" & p(i + 1, 1) & ", " & p(i + 1, 2) & ")"
					   m = m & " Angle: " & p(i, 3) 
					End If 
					MsgBox m 
				Next i 
				Exit For
			else
				msgbox "false"
			end if 		
		Next geom
		Exit For
	Next drw  
End Sub
